﻿Public Class frmFactoryMethod

    Private Sub frmFactoryMethod_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Output.Print("-------------------------")
        Output.Print("--Patrón Factory Method:")
    End Sub

    Private Sub btnDibujar_Click(sender As System.Object, e As System.EventArgs) Handles btnDibujar.Click
        Dim fact As FactoryTrianguloMethod = New FactoryTriangulo()
        Dim t As Triangulo = fact.CreateTriangulo(numLadoA.Value, numLadoB.Value, numLadoC.Value)
        t.Dibujarse()
    End Sub


End Class